﻿Imports System.ComponentModel
Imports System.Configuration.Install


Public Class Installer

    Public Sub New()
        MyBase.New()

        '组件设计器需要此调用。
        InitializeComponent()

        '调用 InitializeComponent 后添加初始化代码

    End Sub


    Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)
        MyBase.Install(stateSaver)

        Indexer.RegisterIndexer()

    End Sub


    'Public Overrides Sub Commit(ByVal savedState As System.Collections.IDictionary)
    '    MyBase.Commit(savedState)


    'End Sub


    Public Overrides Sub Rollback(ByVal savedState As System.Collections.IDictionary)
        MyBase.Rollback(savedState)

        Indexer.UnregisterIndexer()

    End Sub


    Public Overrides Sub Uninstall(ByVal savedState As System.Collections.IDictionary)
        MyBase.Uninstall(savedState)

        Indexer.UnregisterIndexer()

    End Sub
End Class
